*Do-file for re-creating results in "Welcome to the Party? Ethnicity and the Interaction between Potential Activists and Party Gate-Keepers"
*When run, it will also create latex tables which will be saved to a sub-folder named tex of the root directory

*Set root directory in which data (data.dta) should be stored (add your preferred location inside quotation)
global root ""

* Create local sub-folder for tex files in your root directory
capture mkdir "${root}tex"

*Loads dataset data.dta which should be loacted in your root directory
use "${root}data.dta", clear

**********************************************************
*Descriptives Statistics or Table 1 and Table A.7        *
**********************************************************

file open descriptiveswttp using "${root}tex/descriptiveswttp.tex", write replace
file write descriptiveswttp "\begin{tabular}{lcc}" _n
file write descriptiveswttp "\toprule" _n
file write descriptiveswttp " Outcome: & Mean & Std Dev.\\" _n
file write descriptiveswttp "\midrule" _n

sum response
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "Response & `mean' & `sd'\\" _n


file write descriptiveswttp "\emph{Information:} \\" _n

sum rewords 
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "\hspace{0.25cm}\# of Words  & `mean' & `sd'\\" _n

sum infodummy
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "\hspace{0.25cm}Answers Questions  & `mean' & `sd'\\" _n

sum addinfodummy
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "\hspace{0.25cm}Additional Information & `mean' & `sd'\\" _n

file write descriptiveswttp "\emph{Tone:} \\" _n

sum usesname
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "\hspace{0.25cm}Uses Name & `mean' & `sd'\\" _n

sum welcome
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "\hspace{0.25cm}Welcomes E-mail & `mean' & `sd'\\" _n

sum meeting
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "\hspace{0.25cm}Future Party Contact & `mean' & `sd'\\" _n

sum pmeeting
local mean: di %05.3f r(mean)
local sd: di %05.3f r(sd)
file write descriptiveswttp "\hspace{0.25cm}Future Personal Contact & `mean' & `sd'\\" _n


file write descriptiveswttp "\bottomrule" _n
file write descriptiveswttp"\end{tabular}"

file close descriptiveswttp


************************************************************
* Treatment Effects for Table 1                            *
************************************************************

file open wttp using "${root}tex/texwttp.tex", write replace

file write wttp "\begin{tabular}{lc}" _n
file write wttp "\toprule" _n
file write wttp " Outcome: & \multicolumn{1}{c}{Treatment Effect:}\\" _n
file write wttp "\midrule" _n

reg response  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "Response &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"  "\\"_n

file write wttp "\emph{Information:} \\"_n

reg rewords  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}\# of Words &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg infodummy  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Answers Questions &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg addinfodummy  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Additional Information &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

file write wttp "\emph{Tone:} \\"_n

quietly reg usesname  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Uses Name&" (`b') "`star'"  "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n


quietly reg welcome electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg meeting electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Future Party Contact&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg pmeeting electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Future Personal Contact&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

file write wttp "\bottomrule" _n
file write wttp "\end{tabular}"
file close wttp


************************************************************
* Treatment Effects for Table C.8                          *
************************************************************

file open wttp using "${root}tex/texwttprestricted.tex", write replace

file write wttp "\begin{tabular}{lc}" _n
file write wttp "\toprule" _n
file write wttp " Outcome: & \multicolumn{1}{c}{Treatment Effect:}\\" _n
file write wttp "\midrule" _n

file write wttp "\emph{Information:} \\"_n

reg rewords  electoral policy normative arabic woman i.party if response==1, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}\# of Words &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg infodummy  electoral policy normative arabic woman i.party if response==1, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Answers Questions &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg addinfodummy  electoral policy normative arabic woman i.party if response==1, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Additional Information &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

file write wttp "\emph{Tone:} \\"_n

quietly reg usesname  electoral policy normative arabic woman i.party if response==1, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Uses Name&" (`b') "`star'"  "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n


quietly reg welcome electoral policy normative arabic woman i.party if response==1, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg meeting electoral policy normative arabic woman i.party if response==1, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Future Party Contact&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg pmeeting electoral policy normative arabic woman i.party if response==1, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Future Personal Contact&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

file write wttp "\bottomrule" _n
file write wttp "\end{tabular}"
file close wttp


************************************************************
* Treatment effects for Table C.9                          *
************************************************************

file open wttp using "${root}tex/texwttpgender.tex", write replace

file write wttp "\begin{tabular}{lc}" _n
file write wttp "\toprule" _n
file write wttp " Outcome: & \multicolumn{1}{c}{Treatment Effect:}\\" _n
file write wttp "\midrule" _n

quietly reg response  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "Response &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"  "\\"_n

file write wttp "\emph{Information:} \\"_n

quietly reg rewords  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}\# of Words &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg infodummy  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Answers Questions &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg addinfodummy  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Additional Information &" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

file write wttp "\emph{Tone:} \\"_n

quietly reg usesname  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Uses Name&" (`b') "`star'"  "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n


quietly reg welcome electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Welcomes E-mail&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg meeting electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Future Party Contact&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

quietly reg pmeeting electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[woman] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write wttp "\hspace{0.25cm}Future Personal Contact&" (`b') "`star'" "\\"_n
file write wttp " &" "(" (`se') ")"   "\\"_n

file write wttp "\bottomrule" _n
file write wttp "\end{tabular}"
file close wttp

************************************************************
* Treatment effects and differences for Table C.10         *
************************************************************

file open wttp2 using "${root}tex/wttpintergender.tex", write replace

file write wttp2 "\begin{tabular}{lccc}" _n
file write wttp2 "\toprule" _n
file write wttp2 " & \multicolumn{2}{c}{Treatment Effect:} & \\" _n
file write wttp2 " \cline{2-3}"
file write wttp2 " Outcome: & Man & Woman & Diff.\\"
file write wttp2 "\midrule" _n

quietly xi: reg response  electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "Response &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

file write wttp2 "\emph{Information:} \\"_n

quietly xi: reg rewords  electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm}\# of Words &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n


quietly xi: reg infodummy  electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Answers Question &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg addinfodummy  electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Additional Information &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

file write wttp2 "\emph{Tone:} \\"_n

quietly xi: reg usesname  electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Uses Name &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n


quietly xi: reg welcome electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Welcomes E-mail &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg meeting electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Future Party Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg pmeeting electoral policy normative i.arabic*woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Future Personal Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n
file write wttp2 "\bottomrule" _n
file write wttp2 "\end{tabular}"
file close wttp2



************************************************************
* Treatment effects for Table C.11                         *
************************************************************

file open wttp3 using "${root}tex/wttpappeal.tex", write replace

file write wttp3 "\begin{tabular}{lcccc}" _n
file write wttp3 "\toprule" _n
file write wttp3 "Outcome: & \multicolumn{4}{c}{Treatment Effect:}\\" _n
file write wttp3 " & \cline{1-4}"
file write wttp3 " & No Appeal & Electoral & Policy & Normative\\"
file write wttp3 "\midrule" _n

quietly xi: reg response  i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "Response &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n

file write wttp3 "\emph{Information:} \\"_n

quietly xi: reg rewords  i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "\# of Words &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n


quietly xi: reg infodummy  i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "Answers Question &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n

quietly xi: reg addinfodummy  i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "Additional Information &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n


file write wttp3 "\emph{Tone:} \\"_n

quietly xi: reg usesname  i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "Uses Name &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n

quietly xi: reg welcome i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "Welcomes E-Mail &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n

quietly xi: reg meeting i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "Future Party Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n

quietly xi: reg pmeeting i.arabic*electoral i.arabic*policy i.arabic*normative woman i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXelect_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXpolic_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnorma_1]
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
file write wttp3 "Future Personal Contact &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4'" "\\"_n
file write wttp3 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  "\\"_n

file write wttp3 "\bottomrule" _n
file write wttp3 "\end{tabular}"
file close wttp3


********************************************************************************
* Treatment effects for Table C.12                                             *
********************************************************************************

file open wttpparties using "${root}tex/wttpparties.tex", write replace

file write wttpparties "\begin{tabular}{lcccccccccccc}" _n
file write wttpparties "\toprule" _n
file write wttpparties " & \multicolumn{8}{c}{Treatment Effect:}\\" _n
file write wttpparties "\cline{2-9}" _n
file write wttpparties "Outcomes: & V & S & MP & L & C & KD & M & SD & \multicolumn{2}{c}{Largest Diff.} & \multicolumn{2}{c}{Diff. Main Parties}\\" _n
file write wttpparties "\midrule" _n

quietly xi: reg response  i.party*arabic woman electoral policy normative  , robust absorb(kkod)
*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between the lowest and highest SD-V
lincom _b[_IparXarabi_7]-_b[_IparXarabi_8]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}
file write wttpparties "Response &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "SD-V &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n

file write wttpparties "\emph{Information:} \\"_n



quietly xi: reg rewords i.party*arabic woman electoral policy normative  , robust absorb(kkod)
*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between the lowest and highest SD-V
lincom _b[_IparXarabi_7]-_b[_IparXarabi_8]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}
file write wttpparties "Words &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "SD-V &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n



quietly xi: reg infodummy i.party*arabic woman electoral policy normative  , robust absorb(kkod)
*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between lowest and highest (M-V)
lincom _b[_IparXarabi_4]-_b[_IparXarabi_8]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}
file write wttpparties "Answers Question &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "M-V &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n



quietly xi: reg addinfodummy i.party*arabic woman electoral policy normative  , robust absorb(kkod)
*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between the lowest and highest SD-V
lincom _b[_IparXarabi_7]-_b[_IparXarabi_8]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}
file write wttpparties "Additional Information &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "SD-V &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n

file write wttpparties "\emph{Tone:} \\"_n


quietly xi: reg usesname i.party*arabic woman electoral policy normative  , robust absorb(kkod)

*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between the lowest and highest SD-V
lincom _b[_IparXarabi_7]-_b[_IparXarabi_8]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}
file write wttpparties "Uses Name &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "SD-V &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n


quietly xi: reg welcome i.party*arabic woman electoral policy normative  , robust absorb(kkod)

*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between the lowest and highest M-V
lincom _b[_IparXarabi_4]-_b[_IparXarabi_8]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}

file write wttpparties "Welcomes E-Mail &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "M-V &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n




quietly xi: reg meeting i.party*arabic woman electoral policy normative  , robust absorb(kkod)
*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between the lowest and highest M-KD
lincom _b[_IparXarabi_4]-_b[_IparXarabi_2]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}
file write wttpparties "Future Party Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "M-KD &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n




quietly xi: reg pmeeting i.party*arabic woman electoral policy normative  , robust absorb(kkod)
*Coefficients
*V
lincom _b[arabic]+_b[_IparXarabi_8]
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
*S
lincom _b[arabic]+_b[_IparXarabi_6]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
*MP
lincom _b[arabic]+_b[_IparXarabi_5]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
*L
lincom _b[arabic]+_b[_IparXarabi_3] 
local b4 : di %05.3f r(estimate)
local se4 : di %05.3f r(se)
if abs(`b4'/`se4') < 1.65 local star4 
if abs(`b4'/`se4') >= 1.65 local star4 \sym{*}
if abs(`b4'/`se4') >= 1.96 local star4 \sym{**}
if abs(`b4'/`se4') >= 2.58 local star4 \sym{***}
*C
lincom _b[arabic] 
local b5 : di %05.3f r(estimate)
local se5 : di %05.3f r(se)
if abs(`b5'/`se5') < 1.65 local star5 
if abs(`b5'/`se5') >= 1.65 local star5 \sym{*}
if abs(`b5'/`se5') >= 1.96 local star5 \sym{**}
if abs(`b5'/`se5') >= 2.58 local star5 \sym{***}
*KD
lincom _b[arabic]+_b[_IparXarabi_2] 
local b6 : di %05.3f r(estimate)
local se6 : di %05.3f r(se)
if abs(`b6'/`se6') < 1.65 local star6
if abs(`b6'/`se6') >= 1.65 local star6 \sym{*}
if abs(`b6'/`se6') >= 1.96 local star6 \sym{**}
if abs(`b6'/`se6') >= 2.58 local star6 \sym{***}
*M
lincom _b[arabic]+_b[_IparXarabi_4]
local b7 : di %05.3f r(estimate)
local se7 : di %05.3f r(se)
if abs(`b7'/`se7') < 1.65 local star7 
if abs(`b7'/`se7') >= 1.65 local star7 \sym{*}
if abs(`b7'/`se7') >= 1.96 local star7 \sym{**}
if abs(`b7'/`se7') >= 2.58 local star7 \sym{***}
*SD
lincom _b[arabic]+_b[_IparXarabi_7]
local b8 : di %05.3f r(estimate)
local se8 : di %05.3f r(se)
if abs(`b8'/`se8') < 1.65 local star8 
if abs(`b8'/`se8') >= 1.65 local star8 \sym{*}
if abs(`b8'/`se8') >= 1.96 local star8 \sym{**}
if abs(`b8'/`se8') >= 2.58 local star8 \sym{***}
*Diff between the lowest and highest SD-MP
lincom _b[_IparXarabi_7]-_b[_IparXarabi_5]
local b9 : di %05.3f r(estimate)
local se9 : di %05.3f r(se)
if abs(`b9'/`se9') < 1.65 local star9 
if abs(`b9'/`se9') >= 1.65 local star9 \sym{*}
if abs(`b9'/`se9') >= 1.96 local star9 \sym{**}
if abs(`b9'/`se9') >= 2.58 local star9 \sym{***}
*Diff main parties M-S
lincom _b[_IparXarabi_4]-_b[_IparXarabi_6]
local b10 : di %05.3f r(estimate)
local se10 : di %05.3f r(se)
if abs(`b10'/`se10') < 1.65 local star10 
if abs(`b10'/`se10') >= 1.65 local star10 \sym{*}
if abs(`b10'/`se10') >= 1.96 local star10 \sym{**}
if abs(`b10'/`se10') >= 2.58 local star10 \sym{***}
file write wttpparties "Future Personal Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' &" (`b4') "`star4' &" (`b5') "`star5' &" (`b6') "`star6' &" (`b7') "`star7' & "(`b8') "`star8' &" "SD-MP &" (`b9') "`star9' &" "M-S &" (`b10') "`star10'" "\\"_n
file write wttpparties " &" "(" (`se') ")" " &" "(" (`se2') ")" " &"  "(" (`se3') ")" " &" "(" (`se4') ")"  " &" "(" (`se5') ")" " &" "(" (`se6') ")" " &" "(" (`se7') ")" " &" "(" (`se8') ")" " &" " &"  "(" (`se9') ")" " &" " &"  "(" (`se10') ")" "\\"_n



file write wttpparties "\bottomrule" _n
file write wttpparties "\end{tabular}"

file close wttpparties


************************************************************
* Treatment effects for Table C.13                         *
************************************************************

file open wttp2 using "${root}tex/genderpartyofficial.tex", write replace

file write wttp2 "\begin{tabular}{lccc}" _n
file write wttp2 "\toprule" _n
file write wttp2 " & \multicolumn{2}{c}{Treatment Effect of Arabic Name by Gender:} & \\" _n
file write wttp2 " \cline{2-3}"
file write wttp2 " Outcome: & Man & Woman & Diff.\\"
file write wttp2 "\midrule" _n

file write wttp2 "\emph{Information:} \\"_n

quietly xi: reg rewords  electoral policy normative woman i.arabic*womanofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm}\# of Words &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n


quietly xi: reg infodummy  electoral policy normative woman i.arabic*womanofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Answers Question &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg addinfodummy  electoral policy normative woman i.arabic*womanofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Additional Information &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

file write wttp2 "\emph{Tone:} \\"_n

quietly xi: reg usesname  electoral policy normative woman i.arabic*womanofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Uses Name &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n


quietly xi: reg welcome electoral policy normative woman i.arabic*womanofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Welcomes E-mail &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg meeting electoral policy normative woman i.arabic*womanofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Future Party Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg pmeeting electoral policy normative woman i.arabic*womanofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXwoman_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXwoman_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Future Personal Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n
file write wttp2 "\bottomrule" _n
file write wttp2 "\end{tabular}"
file close wttp2

************************************************************
* Treatment Effcts for Table C.14                          *
************************************************************

file open wttp2 using "${root}tex/nordicpartyofficial.tex", write replace

file write wttp2 "\begin{tabular}{lccc}" _n
file write wttp2 "\toprule" _n
file write wttp2 " & \multicolumn{2}{c}{Treatment Effect} & \\" _n
file write wttp2 " \cline{2-3}"
file write wttp2 " Outcome: & Non-Nordic Official & Nordic Official & Diff.\\"
file write wttp2 "\midrule" _n

file write wttp2 "\emph{Information:} \\"_n

quietly xi: reg rewords  electoral policy normative woman i.arabic*nordicofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.2f r(estimate)
local se : di %05.2f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnordi_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXnordi_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm}\# of Words &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n


quietly xi: reg infodummy  electoral policy normative woman i.arabic*nordicofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnordi_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXnordi_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Answers Question &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg addinfodummy  electoral policy normative woman i.arabic*nordicofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnordi_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXnordi_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Additional Information &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

file write wttp2 "\emph{Tone:} \\"_n

quietly xi: reg usesname  electoral policy normative woman i.arabic*nordicofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnordi_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXnordi_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Uses Name &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n


quietly xi: reg welcome electoral policy normative woman i.arabic*nordicofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnordi_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXnordi_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Welcomes E-mail &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg meeting electoral policy normative woman i.arabic*nordicofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnordi_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXnordi_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Future Party Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n

quietly xi: reg pmeeting electoral policy normative woman i.arabic*nordicofficial i.party, robust absorb(kkod)
lincom _b[_Iarabic_1]  
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[_Iarabic_1]+_b[_IaraXnordi_1]
local b2 : di %05.3f r(estimate)
local se2 : di %05.3f r(se)
if abs(`b2'/`se2') < 1.65 local star2 
if abs(`b2'/`se2') >= 1.65 local star2 \sym{*}
if abs(`b2'/`se2') >= 1.96 local star2 \sym{**}
if abs(`b2'/`se2') >= 2.58 local star2 \sym{***}
lincom _b[_IaraXnordi_1]
local b3 : di %05.3f r(estimate)
local se3 : di %05.3f r(se)
if abs(`b3'/`se3') < 1.65 local star3 
if abs(`b3'/`se3') >= 1.65 local star3 \sym{*}
if abs(`b3'/`se3') >= 1.96 local star3 \sym{**}
if abs(`b3'/`se3') >= 2.58 local star3 \sym{***}
file write wttp2 "\hspace{0.25cm} Future Personal Contacts &" (`b') "`star' &" (`b2') "`star2' &" (`b3') "`star3' " "\\"_n
file write wttp2 " &" "(" (`se') ")" " &" "(" (`se2') ")" " &" "(" (`se3') ")" "\\"_n
file write wttp2 "\bottomrule" _n
file write wttp2 "\end{tabular}"
file close wttp2


*********************************
*Treatment effect for Table C.16*
*********************************

gen fika=kaffefika
recode fika .=0

file open  fika using "${root}tex/fika.tex", write replace
file write fika "\begin{tabular}{lc}" _n
file write fika "\toprule" _n
file write fika " & \multicolumn{8}{c}{Treatment Effect:}\\" _n
*file write genderparties "& \cline{1}" _n
file write fika "\midrule" _n

quietly reg fika  electoral policy normative arabic woman i.party, robust absorb(kkod)
lincom _b[arabic] 
local b : di %05.3f r(estimate)
local se : di %05.3f r(se)
if abs(`b'/`se') < 1.65 local star 
if abs(`b'/`se') >= 1.65 local star \sym{*}
if abs(`b'/`se') >= 1.96 local star \sym{**}
if abs(`b'/`se') >= 2.58 local star \sym{***}
lincom _b[woman]
file write fika "Fika &" (`b') "`star'" "\\"_n
file write fika" &" "(" (`se') ")"  "\\"_n
file write fika "\bottomrule" _n
file write fika "\end{tabular}"

file close fika
